Strict
Import agfx

Class TCircle Extends TPrimitive
	
	Field type:Int = -1
	Field radius:Float
	Field diameter:Float
	
	Method New()
		Super.New(PRIMITIVE_TYPE_CIRCLE)
		Self.radius = 0
		Self.diameter = 0
	End Method
	
	Method Create:Void(center:TVector2,rad:Float)
		Self.center = New TVector2(center.x,center.y)
		Self.radius = rad
		Self.diameter = rad*2.0
	End Method
	
	Method Create:Void(cx:Float,cy:Float,rad:Float)
		Self.center = New TVector2(cx,cy)
		Self.radius = rad
		Self.diameter = rad*2.0
	End Method
	
	Method Draw:Void()
		DrawCircle(Self.center.x,Self.center.y,Self.radius)
	End Method
	
	Method Update:Void(recalc_center:Bool=True,recalc_bbox:Bool=True,recalc_edge:Bool=True)
	
	End Method
	
End Class
